00010	PROCEDURE MEDIAN;
00020	
00030	BEGIN
00040	INTEGER POINTA,POINTB,POINTC,POINTD,POINTE,POINTF,
00050	        A,B,C,D,E,F,I;
00060	
00070	POINTA←POINTP-'27;
00080	POINTB←POINTP-'17;
00090	POINTC←POINTP-'7;
00100	POINTD←POINTA; FOR I←1 STEP 1 UNTIL 5 DO IBP(POINTD);
00110	POINTE←POINTB; FOR I←1 STEP 1 UNTIL 5 DO IBP(POINTE);
00120	POINTF←POINTC; FOR I←1 STEP 1 UNTIL 5 DO IBP(POINTF);
00130	
00140	A←ILDB(POINTA);
00150	B←ILDB(POINTB);
00160	C←ILDB(POINTC);
00170	D←ILDB(POINTD);
00180	E←ILDB(POINTE);
00190	F←ILDB(POINTF);
00200	
00210	IF (A>B)∧(C>B) THEN BEGIN
00220	    IF A>C THEN BEGIN DPB(C,POINTB); DPB(F,POINTE); END
00230	    ELSE BEGIN DPB(A,POINTB); DPB(D,POINTE); END; END;
00240	IF (A<B)∧(C<B)  THEN BEGIN
00250	    IF A<C THEN BEGIN DPB(C,POINTB); DPB(F,POINTE); END
00260	    ELSE BEGIN DPB(A,POINTB); DPB(D,POINTE); END; END;
00270	
00280	END;